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-- File Debuglnit.mesa 
-- Edited by: 

Johnsson, August 15, 1978 9:37 AM 

Sandman, April 17, 1978 9:04 AM 

Barbara, June 20, 1978 1:32 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE], 
ControlDefs: FROM "controldef s" USING [ 

BytePC, FrameHandle, GFT, GFTIndex, Global FrameHandle, NullFrame, 

ProcDesc, SD, SignalDesc, StateVector] , 
CoreSwapDefs: FROM "coreswapdef s" USING [SVPointer] , 
DebugBreakptDefs: FROM "debugbreakptdef s" USING [ 

BBPointer, BTtype, ClearBreakBlocks , EXOItype, FindBPRec, FindSegBPRec] , 
DebugCacheDefs: FROM "debugcachedef s" USING [ReinitMap], 
DebugData: FROM "debugdata" USING [ 

caseignoring , debugPilot, ESV, gContext, IContext, pContext, 

restartmessage, sigGF, StatePtr, userwindow, worrybreaks], 
DebuggerDefs: FROM "debuggerdef s" USING [ 

AmlaRecord, BodySei, DumpLocals, DumpParameters , DumpRetVals, DumpSource, 

DumpValsFromState, FormatRecord , FrameRelBPC, ListOptions, SeiHandle, 

SigSeiHandle, SymFrameHandl e, WriteFrameLocus , WriteTransferName], 
DebugMiscDefs: FROM "debugmiscdef s" USING [DebugCommand, WriteEOL], 
DebugSymbolDefs: FROM "debugsymboldef s" USING [ 

DAcquireSymbolTable, DCheckSymbol Items , DReleaseSymbol Table, 

PurgeUser Symbols , Symbol sForGFrame] , 
DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

AREAD, CheckFrame, CoreSwap, DebugUtil itieslnit , InitDebugger , 

Initial izeDrum, InitMapCleanup , InitUCSHandler, InvalidateFileCache, 

MREAD, UserWriteString, MWRITE], 
IODefs: FROM "iodefs" USING [ 

CR, NUL, ReadChar, WriteChar, WriteLine, WriteOctal, WriteString] , 
OsStaticDefs: FROM "osstaticdef s" USING [OsStaticRecord, OsStatics], 
SDDefs: FROM "sddefs" USING [sSignal], 
StreamDefs: FROM "streamdefs" USING [Streamlndex] , 
SymDefs: FROM "symdefs" USING [ISEIndex], 

TimeDefs: FROM "timedefs" USING [AppendDayTime , DefaultTime, UnpackDT], 
WindowDefs: FROM "windowdefs" USING [ 

GetCurrentDisplayWindow, PaintDisplayWindow, WindowHandle] ; 

Debuglnit: PROGRAM [herald: STRING] 

IMPORTS DebugCacheDefs, DDptr: DebugData, DebugMiscDefs, 

DebugBreakptDefs, DebugSymbolDefs, DebugUtilityDefs, 

DebuggerDefs, IODefs, TimeDefs, WindowDefs 
EXPORTS DebugMiscDefs, DebugBreakptDefs = 

BEGIN 

SaveSignallerGF: PUBLIC PROCEDURE = 

BEGIN OPEN ControlDefs, DebugUtilityDefs; 

gfi: GFTIndex; 

gfi «- LOOPHOLE[MREAD[@SD[SDDefs.sSignal]], ProcDesc] . gfi ; 

DDptr. sigGF *- MREAD[@GFT[gfi] . frame]; 

RETURN; 

END; 

BreaklnstToState: PUBLIC PROCEDURE [sp: CoreSwapDefs .SVPointer , b: AltoDefs .BYTE] » 
BEGIN OPEN ControlDefs; 
state: StateVector; 

Dstate: DESCRIPTOR FOR ARRAY OF UNSPECIFIED 4- DESCRIPTOR[@state , SIZE[StateVector]] ; 
i: CARDINAL; 

FOR i IN [0. .LENGTH[Dstate]) DO 

Dstate[i] *- DebugUtilityDefs. MREAD[sp+i] 

ENDLOOP; 
state, instbyte <- b; 
FOR i IN [0. .LENGTH[Dstate]) DO 

DebugUtil ityDefs .MWRITE[sp +i, Dstate[i]] 

ENDLOOP; 
RETURN 
END; 

Break: PUBLIC PROCEDURE [sp: CoreSwapDefs . SVPointer] « 
BEGIN OPEN DebuggerDefs, DebugBreakptDefs; 
-- breakpoint interpreter 
c: CHARACTER; 
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bsei: SymDef s . ISEIndex; 

f: ControlDefs.FrameHancne <- DebugUtil ityDefs .MREAD[@sp . dest]; 

gframe: ControlDef s .GIobalFrameHandle <- DebugUtil ityDefs .MREAD[0f. access"! ink] ; 

sfh: SymFrameHandle; 

bp: BBPointer; 

FR: FormatRecord <~ 

[indentation: 2, symid: TRUE, firstsym: TRUE, symdelim: '■, 
intersym: IODefs.CR, startchar: IODefs.NUL, termchar: IODefs.NUL]; 

IF - DebugUti1ityDefs.CheckFrame[f] THEN 
BEGIN 

IODefs.WriteString["Breakpoint M L]; 
DebugMiscDefs.DebugCommand[sp]; 
RETURN 
END; 
IF (bp <- FindBPRec[gframe, FrameRelBPC[f ]]) » NIL THEN 
BEGIN 

IF (bp 4- FindSegBPRec[gframe, FrameRe1BPC[f ]]) ■ NIL THEN 
BEGIN 

IODefs.WriteString[ M Breakpoint not foundl"L]; 
DebugMiscDefs.DebugCommand[sp]; 
RETURN 
END; 
BreakInstToState[sp, bp.brkinst]; 
RETURN 
END; 
DebugMiscDefs.WriteEOL[]; 
BreakInstToState[sp , bp.brkinst]; 
IF bp.exo # octal THEN 

BEGIN OPEN DebugSymbolDefs; 
sfh.faddr <- f; 

sfh.stbase «- DAcquireSymbo"ITab1e[Symbol sForGFrame[gf rame]]; 
END; 
IF bp.bt - trace THEN 
BEGIN 

DDptr.StatePtr <- sp; 
bsei <~ BodySei[sfh]; 
IF bp.exo - entry THEN 
BEGIN 

WriteHera1d[sfh .trace, en try]; 
DebugMiscDefs.WriteEOL[]; 
DumpParameters[bsei , @FR, sfh]; 
END ELSE 
IF bp.exo = exit THEN 
BEGIN 

Wri teHerald[sf h .trace, ex it]; 
DebugMiscDef s.WriteEOL[]; 
DumpValsFromState[bsei , @FR, sfh.stbase, sp 

lAmlaRecord -> RESUME[FALSE]]; 
END 
ELSE WriteHera1d[sfh, trace, in]; 
DO 

IODefs.WriteChar[' ]; IODef s.WriteChar[ '>] ; 
c «- IODefs.ReadChar[j; 
IODefs.WriteChar[c]; 
SELECT c FROM 

'q, 'Q = > BEGIN DebugSymbol Def s . DRel easeSymbol Tab! e[sf h . stbase] ; 

EXIT; END; 
'p, 'P => BEGIN DumpParameters[bsei , @FR, sfh]; END; 
'v, 'V => BEGIN DumpLocals[bsei, @FR, sfh]; END; 
•r. 'R => BEGIN DumpRetVals[bsei, @FR, sfh]; END; 
'b, 'B => BEGIN DebugSymbo1Defs.DReleaseSymboUab1e[sfh. stbase]; 

DebugM iscDefs .DebugCommand[sp] ; EXIT; END; 
's, 'S => BEGIN DumpSource[bsei , @FR, sfh]; END; 
ENDCASE => BEGIN Lis tOp tions[TRUF] ; END; 
ENDLOOP; 
DebugMiscDefs.WriteEOL[] 
END 
ELSE 
BEGIN 
SELECT bp.exo FROM 

entry => WriteHerald[sfh, break, entry]; 
exit ■> Wri teHeral d[sfh .break .exit] ; 
octal k > Wri teOcta IHerald[gf rame , bp.pc]; 
ENDCASE «> WriteHerald[sfh, break. in]; . 
IF bp.exo # octal THEN DebugSymbolDefs .DReleaseSymbo1Table[sfh. stbase] ; 
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DebugMiscDefs.DebugCommand[sp]; 

END; 
RETURN 
END; 

WriteOctalHerald: PUBLIC PROCEDURE [f: ControlDefs .Global FrameHandle, 
b: ControlDefs. BytePC] ■ 
BEGIN OPEN IODefs; 

WriteString["Octal -break in frame: M L]; 
WriteOctal[f]; 

WriteString[", byte-pc: "L]; 
WriteOctal[b]; 
RETURN 
END; 

WriteHerald: PROCEDURE [f: DebuggerDef s .SymFrameHandle , 

bt: DebugBreakptDef s.BTtype, exi: DebugBreakptDef s .EXOItype] « 

BEGIN 

IODefs. WriteStringCIF bt ■ break THEN "Break"L ELSE "Trace"L]; 

IODefs. WriteString[SELECT exi FROM 

entry a > " at entry to "L, 

exit => " at exit from "L, 

ENDCASE => " in M L]; 
DebuggerDef s .Wri teFrameLocus[f , exi ■ in]; 
RETURN 
END; 

UCSHandler: PUBLIC PROCEDURE [psv: CoreSwapDef s .SVPoin ter , signal: UNSPECIFIED] 
BEGIN OPEN ControlDefs, DebuggerDef s , DebugUtil ityDef s ; 
sh: SeiHandle; 
FR: FormatRecord *- 

[indentation: 2, symid: TRUE, firstsym: TRUE, symdelim: '=, 
intersym: IODefs. CR, startchar: IODefs. NUL, termchar: IODefs. NUL]; 
ucs: PROCEDURE - 

BEGIN IODefs. Wri teOctal[signal ] ; msg[]; RETURN END; 
msg: PROCEDURE - 
BEGIN 

IODefs. WriteString[", msg ■ M L]; 
IODefs. WriteOctal[MREAD[§psv.stk[0]]]; 
RETURN 
END; 

BEGIN 

IODefs. WriteString[ M *** uncaught SIGNAL "L]; 

IF signal = -1 THEN GOTO error; 

WriteTransferName[sh <- SigSeiHandle[signal ! ANY => GOTO nosym], TRUE, 

NullFrame, MREAD[@GFT[LOOPHOLE[signal , SignalDesc] . gfi] . frame]] ; 
DumpValsFromState[sh.sei , @FR, sh.stbase, psv 
I AmlaRecord => RESUME[FALSE]; 
ANY => GOTO stop]; 
DebugSymbolDef s.DReleaseSymbo 1 Tab! e[ sh.stbase]; 
EXITS 

error => IODefs .Wr iteString[ M ERROR"L] ; 

nosym => ucs[]; 

stop => BEGIN IODefs. Wri teChar[ ' ?] ; msg[]; END; 
END; 

DebugMiscDef s .DebugCommand[psv] ; 
RETURN 
END; 

-- initialize the "world" 

initial state: ControlDefs . StateVector ; 

Install: PUBLIC PROCEDURE = 

BEGIN 
-- not worked out yet 

RETURN 

END; 

RelnitWindows: PROCEDURE ■ 
BEGIN OPEN WindowDefs; 

default: WindowHandle ■ GetCurrentDispl ayWindow[] ; 
defaul t .eof index <- default . fileindex *- StreamDefs .StreamIndex[0 , 0]; 
def aul t . tempindex «- StreamDefs .Streamlndex[0, -1] ; 
DDptr . userwindow.f ileindex +■ StreamDefs .Streamlndex[0,0] ; 
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PaintDisplayWindow[ default] ; 

RETURN 

END; 

CopyUserNamePassword: PROCEDURE - 

BEGIN OPEN OsStaticDefs, DebugUtil ityDef s ; 
userStatics: POINTER TO OsStaticRecord * AREAD[OsStatics] ; 
debuggerStatics: POINTER TO OsStaticRecord * OsStaticst;' 
pc: TYPE - POINTER TO CARDINAL; 

copy: PROCEDURE [from: POINTER, to: POINTER, nwords: CARDINAL] ■ 
BEGIN OPEN DebugUtilityDefs; 
WHILE nwords # DO 

tot 4- AREAD[from]; to <- to + l; from <~ from + 1; 
nwords «- nwords - 1; 
ENDLOOP; 
END; 
copy[f rom: AREAD[@userStatics .UserName] , 
to: debuggerStatics. UserName, 

nwords : LOOPHOLE [ d ebu ggerSt at ics. Use rName-1 , pc]t]; 
copy [from: AR E AD[ @ use rSta tics . Us erPas sword], 
to: debuggerStatics .User Pas sword, 

nwords: LOOPHOLE [ d ebugger St at ics .User Pas sword -1 ,pc]t]; 
END; 

WriteDebuggerHerald: PROCEDURE - 
BEGIN OPEN lODefs, TimeDefs; 
time: STRING «- [18]; 
DebugMiscDefs.WriteEOL[]; 
WriteLine[herald]; 

AppendDayTime[time , Unpack DT[Def aul tTime]] ; 
time. length <- time. length - 3; 
WriteLine[time]; 
IF DDptr. restartmessage # NIL THEN 

BEGIN Wr iteLine[DDptr. restartmessage] ; DDptr . restartmessage «- NIL END; 
WriteChar[CR]; 
RETURN 
END; 

case: {installing, initial, ucs, cleanmap} «- installing; 

-- External Debugger starts here 

STOP; -- Restarted when ready to do the coreswap part of install 

DO 

BEGIN OPEN DebugUtilityDefs; 
ENABLE 
BEGIN 
InitDebugger => 

BEGIN OPEN initialstate; 
case «- initial; 
stk[0] «- sp; 
s ^k[l] <~ message; 
GOTO in it 
END; 
InitUCSHandler => 

BEGIN OPEN initialstate; 
case «- ucs; 
stk[0] <- sp; 
stk[l] ♦- signal ; 
GOTO init 
END; 
InitMapCleanup a > 
BEGIN 

case <- cleanmap; 
GOTO init 
END 
END; 
WriteDebuggerHerald[]; 

DDptr. gContext «- DDptr . IContext *- DDptr .pContext <- NIL; 
SELECT case FROM 

installing »> BEGIN CoreSwap[instal 1 ] ; STOP END; 
initial *> 

BEGIN OPEN initialstate; 

IF stk[l] It NIL THEN UserWr i teStr ing[stk[l]] ; 

DebugM iscDefs . DebugCommand[s tk[0]] ; 
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Co reSwap[ proceed] ; 

END; 
ucs ■> 

BEGIN OPEN initialstate; 

UCSHandler[stk[0], stk[l]]; 

CoreSwap[resume] ; 

case <- initial 

END; 
cleanmap «> CoreSwap[proceed]; 
ENDCASE; 
EXITS 
init »> 

BEGIN OPEN DebugSymbolDefs, DebugUti 1 ityDefs ; 

DebugMiscDef s.SaveSignallerGF[]; DebugUti 1 itieslnit[]; 

InvalidateFileCache[]; 

DebugBreakptDef s.ClearBreakBlocks[]; Initial izeDrum[]; 

ReInitWindows[] ; 

IF DDptr.debugPilot THEN 

DebugCacheDefs.ReinitMap[DDptr.ESV.mapLog]; 

[] <- PurgeUserSymbols[]; DCheckSymbolItems[]; 

CopyUserNamePassword[]; 

DDptr.worrybreaks «- FALSE; 

DDptr.caseignoring «- TRUE; 

END; 
END; 
ENDLOOP; 

END... 



